home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Serious Software / SiteCam 3.0 demo / Extras / Sample AppleScripts / FTP Scripts / PPP Anarchie sample < prev    next >
Encoding:
Text File  |  1997-11-11  |  3.4 KB  |  108 lines  |  [TEXT/ToyS]
  1. -- This is a SiteCam post-process script to FTP the last image 
  2. --  (Image.jpg) to a remote FTP location and saves it as "current.jpg".
  3. -- This document should be viewed and edited using "Script Editor".  
  4. -- This script starts and terminates a PPP connection if not already 
  5. -- connected
  6. -- The FTP portion of the script uses a two step process to minimize 
  7. -- the time that a image is unavailable to the http server.
  8.  
  9. -- Step 1: Get the right PPP
  10. -- Verify that you have the latest Apple PPP
  11. --   Install and make sure that "PPP Commands" is in your 
  12. --   "System Folder:Extensions:Scripting Additions" folder.  
  13. -- To test your PPP, create a new script and type "PPP Connect" 
  14. -- and hit "Run."
  15. -- If you're already connected, you'll get an error.  Next, delete 
  16. -- that and type "PPP Disconnect" and hit "Run."
  17. --
  18. -- If your Fetch program is not named "Fetch", either rename it 
  19. -- or change the script to its actual file name (e.g. Fetch 3.0)
  20. --
  21. -- Step 2:
  22.  
  23. -- Open this document from ScriptEditor- save it as "MyFTP Script" 
  24. -- Create a Ram Disk for added efficiency using the "Memory" control 
  25. --   panel.  (Or rename file path to suit your needs)  
  26. -- Put an alias of Fetch 3.0.1 in your "Startup Items" folder in your 
  27. --   System Folder. If you have an older version, please upgrade.  
  28. -- Reboot to activate Ram Disk and start Fetch.
  29. -- Edit the script below, modifying the host, userID, password, and 
  30. --   file names as needed.  They have been marked with xxxxxx
  31.  
  32. -- Step 3:
  33.  
  34. -- Create a SiteCam document with the following settings
  35. -- Set type to jpeg (already default)
  36. -- Set number of pictures to save to 1
  37. -- Set image destination folder to your Ram Disk
  38. -- set file name to Image
  39. -- Do not set your post process proc yet.
  40. -- Save your SiteCam document in your System Folder:Startup items folder.
  41. -- Do a command-T (take picture now) to take the first picture.
  42. -- Next: Go to this script editor document and try running the script.  
  43. --  If all goes well, current.jpg should exist on your remote FTP server.
  44. -- Debug as needed.  When working, Quit Script Editor or close 
  45. --  "MyFTP Script".
  46. -- From SiteCam, Set Post process script to this document to 
  47. --  "MyFTP Script"
  48.  
  49.     with timeout of 1000 seconds
  50.  
  51.  
  52. try
  53.     -- Find status of PPP connection and store in a variable "origState"
  54.     set origState to PPP status
  55.     -- If not connected, connect to your ISP
  56.     if (state of origState is not "Connected") then
  57.         PPP connect
  58.     end if
  59.     
  60.     -- If we're connected, do the FTP part
  61.     if (state of (PPP status) is "Connected") then
  62.     
  63.  
  64. -- FTP the last image to a remote location.  
  65. -- This script uses a two step process to minimize the time that a image 
  66. -- is unavailable to the http server.
  67.  
  68. -- Get the name of the last image saved
  69. tell application "SiteCam"
  70.     set yourLocalImage to last image file of active document 
  71. end tell
  72.  
  73. -- Change the variables below, and add passwords, if needed.
  74.  
  75. tell application "Anarchie"
  76.     
  77.     set ftptempfile to "/yourpath/temp.jpg"
  78.     set ftpdestfile to "/yourpath/current.jpg"
  79.     set yourFTPHost to "ftp.yourhost.com"
  80.     
  81.     with timeout of 1000 seconds
  82.         store file yourLocalImage host yourFTPHost path ftptempfile
  83.         rename host yourFTPHost path ftptempfile newname ftpdestfile
  84.     end timeout
  85.     
  86. end tell
  87.  
  88.  
  89.  
  90.  
  91.     else
  92.         -- signal FTP error
  93.         -- change this to some error, or take out beep if it bugs you.
  94.         beep
  95.         beep
  96.     end if
  97.     
  98.     PPP disconnect
  99.     
  100. on error errMsg number errNum
  101.     -- signal PPP or other error
  102.     -- change this to some error, or take out beep if it bugs you.
  103.     beep
  104. end try
  105.  
  106.     end timeout
  107.  
  108.